home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_themes.inc < prev    next >
Encoding:
Text File  |  1998-05-29  |  1.1 KB  |  38 lines
  1. <%
  2. '    $Date: 11/24/97 12:17p $
  3. '    $ModTime: $
  4. '    $Revision: 2 $
  5. '    $Workfile: themes.inc $
  6.  
  7.  Sub ShowFolderList(folderspec)
  8.     Dim fs, f, f1, fc, s
  9.     Set fs = CreateObject("Scripting.FileSystemObject")
  10.     Set f = fs.GetFolder(folderspec)
  11.     Set fc = f.SubFolders
  12.     s = "<OPTION VALUE=""" & """ SELECTED>Select your theme!"
  13.     For Each f1 in fc
  14.         s = s & "<OPTION NAME=" & """Theme""" & " VALUE=""" & f1.name 
  15.         If myinfo.Theme = f1.name Then
  16.             s = s & """ SELECTED>" & f1.name
  17.         Else
  18.             s = s & """>" & f1.name
  19.         End If
  20.     Next
  21.     s = s & "</SELECT>"
  22.     response.write s
  23.  End Sub
  24.  
  25.  If myinfo.ranWizard <> "" Then
  26.     'response.write "<FONT Size='-1'><A HREF = " & """#""" & " onClick = """ & HelpWindow("Style") & """>Template Style</A></FONT><BR>"_
  27.      '&
  28.     response.write "<SELECT NAME='theme' Language='VBSCRIPT' ONCHANGE='Submit'>" 
  29.  Else
  30.     response.write "<H5>You can choose from the following templates to personalize your home page.</H5><BR><blockquote>"_
  31.     & "<SELECT NAME='theme' Size=3>"
  32.  End If
  33.  call ShowFolderList(Server.MapPath("/iissamples/homepage/themes"))
  34.  If myinfo.ranWizard <> "" Then 
  35.     response.write "</blockquote>"
  36.  End If
  37. %>
  38.